10 REM FUNCTION KEY LOADER
20 REM BY JOHN M. CAMPBELL
22 IF AA=1 THEN 120
25 PRINT "LOAD FUNCTION KEYS"
30 OPEN 15,8,15,"I"
40 OPEN 2,8,2,"FN KEYS,P,R"
50 INPUT#15,EN,EM$,ET,ES
60 IF EN=0 THEN 70
65 PRINT "CANNOT LOCATE FUNCTION KEY DEFINITIONS"
67 CLOSE3:CLOSE15:END
70 GET#2,A0$,A1$
80 A0=ASC(A0$+CHR$(0))
90 A1=ASC(A1$+CHR$(0))
95 AD=A0+256*A1
100 CLOSE2:CLOSE15
103 A0=PEEK(655):A1=PEEK(656)
105 IF AD+27<>A0+256*A1 THEN 110
106 PRINT "FUNCTION KEYS ALREADY DEFINED"
107 PRINT "TYPE STOP+RESTORE KEYS THEN RE-RUN"
108 END
110 AA=1:LOAD"FN KEYS",8,1
120 SYS AD:PRINT "ACTIVATING FUNCTION KEYS"
130 NEW